VERSION 5.00
Begin VB.UserControl SexPartnerDetailCtrl 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   3870
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11415
   FillColor       =   &H00FFFFFF&
   ScaleHeight     =   3870
   ScaleWidth      =   11415
   Begin VB.Label Type_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   46
      Top             =   840
      Width           =   1575
   End
   Begin VB.Label New_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   45
      Top             =   1200
      Width           =   1575
   End
   Begin VB.Label Status_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   44
      Top             =   1560
      Width           =   1575
   End
   Begin VB.Label DateLastTested_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   43
      Top             =   1920
      Width           =   1575
   End
   Begin VB.Label FPMeth_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   42
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Label ConUse_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   41
      Top             =   2640
      Width           =   1575
   End
   Begin VB.Label ConLst_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   3
      Left            =   9120
      TabIndex        =   40
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Label Type_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   39
      Top             =   840
      Width           =   1575
   End
   Begin VB.Label New_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   38
      Top             =   1200
      Width           =   1575
   End
   Begin VB.Label Status_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   37
      Top             =   1560
      Width           =   1575
   End
   Begin VB.Label DateLastTested_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   36
      Top             =   1920
      Width           =   1575
   End
   Begin VB.Label FPMeth_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   35
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Label ConUse_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   34
      Top             =   2640
      Width           =   1575
   End
   Begin VB.Label ConLst_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   2
      Left            =   7320
      TabIndex        =   33
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Label Type_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   32
      Top             =   840
      Width           =   1575
   End
   Begin VB.Label New_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   31
      Top             =   1200
      Width           =   1575
   End
   Begin VB.Label Status_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   30
      Top             =   1560
      Width           =   1575
   End
   Begin VB.Label DateLastTested_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   29
      Top             =   1920
      Width           =   1575
   End
   Begin VB.Label FPMeth_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   28
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Label ConUse_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   27
      Top             =   2640
      Width           =   1575
   End
   Begin VB.Label ConLst_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   1
      Left            =   5520
      TabIndex        =   26
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Line Line3 
      X1              =   3600
      X2              =   10800
      Y1              =   720
      Y2              =   720
   End
   Begin VB.Label PartnerNum_Label 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "Next Partner"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   9180
      TabIndex        =   25
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label PartnerNum_Label 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "Next Partner"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   7380
      TabIndex        =   24
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label PartnerNum_Label 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "Next Partner"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   5580
      TabIndex        =   23
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label PartnerNum_Label 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "Most Recent"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   3780
      TabIndex        =   22
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label13 
      BackColor       =   &H00C0FFFF&
      Caption         =   "4 most recent partners (<6mo)"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   420
      TabIndex        =   21
      Top             =   300
      Width           =   3135
   End
   Begin VB.Label Label12 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Partner's HIV Status:  ......."
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   14
      Top             =   1500
      Width           =   2655
   End
   Begin VB.Label Label11 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Date of Partner's last test: "
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   13
      Top             =   1860
      Width           =   2655
   End
   Begin VB.Label Label10 
      BackColor       =   &H00C0FFFF&
      Caption         =   "FP Method(s):  ................."
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   12
      Top             =   2220
      Width           =   2655
   End
   Begin VB.Label Label9 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Condom Use:  ..................."
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   11
      Top             =   2580
      Width           =   2655
   End
   Begin VB.Label Label8 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Condom used last time:  ..."
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   10
      Top             =   2940
      Width           =   2655
   End
   Begin VB.Label Label7 
      BackColor       =   &H00C0FFFF&
      Caption         =   "New Partner:  ...................."
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   9
      Top             =   1140
      Width           =   2655
   End
   Begin VB.Label Age_Label 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Type:  ................................"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   780
      Width           =   2655
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   6
      Left            =   600
      TabIndex        =   20
      Top             =   2940
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   5
      Left            =   600
      TabIndex        =   19
      Top             =   2580
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   4
      Left            =   600
      TabIndex        =   18
      Top             =   2220
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   3
      Left            =   600
      TabIndex        =   17
      Top             =   1860
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   2
      Left            =   600
      TabIndex        =   16
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   375
      Index           =   0
      Left            =   600
      TabIndex        =   15
      Top             =   780
      Width           =   255
   End
   Begin VB.Label ConLst_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   8
      Top             =   3000
      Width           =   1575
   End
   Begin VB.Label ConUse_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   7
      Top             =   2640
      Width           =   1575
   End
   Begin VB.Label FPMeth_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   6
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Label DateLastTested_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   5
      Top             =   1920
      Width           =   1575
   End
   Begin VB.Label Status_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   4
      Top             =   1560
      Width           =   1575
   End
   Begin VB.Label New_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   3
      Top             =   1200
      Width           =   1575
   End
   Begin VB.Line Line7 
      X1              =   9000
      X2              =   9000
      Y1              =   720
      Y2              =   3480
   End
   Begin VB.Line Line6 
      X1              =   7200
      X2              =   7200
      Y1              =   720
      Y2              =   3480
   End
   Begin VB.Line Line5 
      X1              =   5400
      X2              =   5400
      Y1              =   720
      Y2              =   3480
   End
   Begin VB.Line Line4 
      X1              =   3600
      X2              =   10800
      Y1              =   3480
      Y2              =   3480
   End
   Begin VB.Line Line2 
      X1              =   10800
      X2              =   10800
      Y1              =   720
      Y2              =   3480
   End
   Begin VB.Line Line1 
      X1              =   3600
      X2              =   3600
      Y1              =   720
      Y2              =   3480
   End
   Begin VB.Label Type_Data 
      BackColor       =   &H00C0FFFF&
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   600
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Index           =   0
      Left            =   3720
      TabIndex        =   0
      Top             =   840
      Width           =   1575
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   1
      Left            =   600
      TabIndex        =   2
      Top             =   1140
      Width           =   255
   End
   Begin VB.Line SexColorLine 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   10
      X1              =   60
      X2              =   60
      Y1              =   660
      Y2              =   3120
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   3735
      Left            =   60
      Shape           =   4  'Rounded Rectangle
      Top             =   60
      Width           =   11295
   End
End
Attribute VB_Name = "SexPartnerDetailCtrl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public Sub UpdateData()

   'For partner 1
   For I = 0 To 3
      PartnerNum_Label(I).Enabled = False
   Next I
   PartnerNum_Label(CurrPartner).Enabled = True
   
   Select Case PTYPE(0)
      Case ""
         Type_Data(0).Caption = ""
      Case "01"
         Type_Data(0).Caption = "Spouse"
      Case "02"
         Type_Data(0).Caption = "Steady"
      Case "03"
         Type_Data(0).Caption = "Casual"
      Case "99"
         Type_Data(0).Caption = "Other"
      Case Else
         Type_Data(0).Caption = "ERROR"
   End Select
   
   Select Case PNEW(0)
      Case ""
         New_Data(0).Caption = ""
      Case "0"
         New_Data(0).Caption = "No"
      Case "1"
         New_Data(0).Caption = "Yes"
      Case Else
         New_Data(0).Caption = "ERROR"
   End Select
   
   Select Case PSTATUS(0)
      Case ""
         Status_Data(0).Caption = ""
      Case "01"
         Status_Data(0).Caption = "HIV+"
      Case "02"
         Status_Data(0).Caption = "HIV-"
      Case "97"
         Status_Data(0).Caption = "Unknown"
      Case Else
         Status_Data(0).Caption = "ERROR"
   End Select
      
   If PLTSTMO(0) = "" Then
      DateLastTested_Data(0).Caption = ""
   Else
      If PLTSTYR(0) = "" Then
         DateLastTested_Data(0).Caption = PLTSTMO(0)
      Else
         DateLastTested_Data(0).Caption = PLTSTMO(0) & " / " & PLTSTYR(0)
      End If
   End If
   
   Select Case PFPMETH(0)
      Case ""
         FPMeth_Data(0).Caption = ""
      Case "00"
         FPMeth_Data(0).Caption = "None"
      Case "01"
         FPMeth_Data(0).Caption = "Pills"
      Case "02"
         FPMeth_Data(0).Caption = "Shots (DP)"
      Case "03"
         FPMeth_Data(0).Caption = "IUCD"
      Case "04"
         FPMeth_Data(0).Caption = "Sterilization"
      Case "05"
         FPMeth_Data(0).Caption = "Norplant"
      Case "06"
         FPMeth_Data(0).Caption = "Condom"
      Case "07"
         FPMeth_Data(0).Caption = "Natural"
      Case "99"
         FPMeth_Data(0).Caption = "Other"
      Case Else
         FPMeth_Data(0).Caption = "ERROR"
   End Select
   
   
   Select Case PCONUSE(0)
      Case ""
         ConUse_Data(0).Caption = ""
      Case "00"
         ConUse_Data(0).Caption = "Never"
      Case "01"
         ConUse_Data(0).Caption = "Always"
      Case "02"
         ConUse_Data(0).Caption = "Sometimes"
      Case "98"
         ConUse_Data(0).Caption = "N/A"
      Case "99"
         ConUse_Data(0).Caption = "Other"
      Case Else
         ConUse_Data(0).Caption = "ERROR"
   End Select
      
   Select Case PCONLST(0)
      Case ""
         ConLst_Data(0).Caption = ""
      Case "00"
         ConLst_Data(0).Caption = "No"
      Case "01"
         ConLst_Data(0).Caption = "Yes"
      Case "97"
         ConLst_Data(0).Caption = "Don't know"
      Case "98"
         ConLst_Data(0).Caption = "N/A"
      Case Else
         ConLst_Data(0).Caption = "ERROR"
   End Select
         
   'For partner 2
   Select Case PTYPE(1)
      Case ""
         Type_Data(1).Caption = ""
      Case "01"
         Type_Data(1).Caption = "Spouse"
      Case "02"
         Type_Data(1).Caption = "Steady"
      Case "03"
         Type_Data(1).Caption = "Casual"
      Case "99"
         Type_Data(1).Caption = "Other"
      Case Else
         Type_Data(1).Caption = "ERROR"
   End Select
   
   Select Case PNEW(1)
      Case ""
         New_Data(1).Caption = ""
      Case "0"
         New_Data(1).Caption = "No"
      Case "1"
         New_Data(1).Caption = "Yes"
      Case Else
         New_Data(1).Caption = "ERROR"
   End Select
   
   Select Case PSTATUS(1)
      Case ""
         Status_Data(1).Caption = ""
      Case "01"
         Status_Data(1).Caption = "HIV+"
      Case "02"
         Status_Data(1).Caption = "HIV-"
      Case "97"
         Status_Data(1).Caption = "Unknown"
      Case Else
         Status_Data(1).Caption = "ERROR"
   End Select
   
   If PLTSTMO(1) = "" Then
      DateLastTested_Data(1).Caption = ""
   Else
      If PLTSTYR(1) = "" Then
         DateLastTested_Data(1).Caption = PLTSTMO(1)
      Else
         DateLastTested_Data(1).Caption = PLTSTMO(1) & " / " & PLTSTYR(1)
      End If
   End If
   
   Select Case PFPMETH(1)
      Case ""
         FPMeth_Data(1).Caption = ""
      Case "00"
         FPMeth_Data(1).Caption = "None"
      Case "01"
         FPMeth_Data(1).Caption = "Pills"
      Case "02"
         FPMeth_Data(1).Caption = "Shots (DP)"
      Case "03"
         FPMeth_Data(1).Caption = "IUCD"
      Case "04"
         FPMeth_Data(1).Caption = "Sterilization"
      Case "05"
         FPMeth_Data(1).Caption = "Norplant"
      Case "06"
         FPMeth_Data(1).Caption = "Condom"
      Case "07"
         FPMeth_Data(1).Caption = "Natural"
      Case "99"
         FPMeth_Data(1).Caption = "Other"
      Case Else
         FPMeth_Data(1).Caption = "ERROR"
   End Select
   
   Select Case PCONUSE(1)
      Case ""
         ConUse_Data(1).Caption = ""
      Case "00"
         ConUse_Data(1).Caption = "Never"
      Case "01"
         ConUse_Data(1).Caption = "Always"
      Case "02"
         ConUse_Data(1).Caption = "Sometimes"
      Case "98"
         ConUse_Data(1).Caption = "N/A"
      Case "99"
         ConUse_Data(1).Caption = "Other"
      Case Else
         ConUse_Data(1).Caption = "ERROR"
   End Select
      
   Select Case PCONLST(1)
      Case ""
         ConLst_Data(1).Caption = ""
      Case "00"
         ConLst_Data(1).Caption = "No"
      Case "01"
         ConLst_Data(1).Caption = "Yes"
      Case "97"
         ConLst_Data(1).Caption = "Don't know"
      Case "98"
         ConLst_Data(1).Caption = "N/A"
      Case Else
         ConLst_Data(1).Caption = "ERROR"
   End Select
   
   'For partner 3
   Select Case PTYPE(2)
      Case ""
         Type_Data(2).Caption = ""
      Case "01"
         Type_Data(2).Caption = "Spouse"
      Case "02"
         Type_Data(2).Caption = "Steady"
      Case "03"
         Type_Data(2).Caption = "Casual"
      Case "99"
         Type_Data(2).Caption = "Other"
      Case Else
         Type_Data(2).Caption = "ERROR"
   End Select
   
   Select Case PNEW(2)
      Case ""
         New_Data(2).Caption = ""
      Case "0"
         New_Data(2).Caption = "No"
      Case "1"
         New_Data(2).Caption = "Yes"
      Case Else
         New_Data(2).Caption = "ERROR"
   End Select
   
   Select Case PSTATUS(2)
      Case ""
         Status_Data(2).Caption = ""
      Case "01"
         Status_Data(2).Caption = "HIV+"
      Case "02"
         Status_Data(2).Caption = "HIV-"
      Case "97"
         Status_Data(2).Caption = "Unknown"
      Case Else
         Status_Data(2).Caption = "ERROR"
   End Select
   
   If PLTSTMO(2) = "" Then
      DateLastTested_Data(2).Caption = ""
   Else
      If PLTSTYR(2) = "" Then
         DateLastTested_Data(2).Caption = PLTSTMO(2)
      Else
         DateLastTested_Data(2).Caption = PLTSTMO(2) & " / " & PLTSTYR(2)
      End If
   End If
   
   
   Select Case PFPMETH(2)
      Case ""
         FPMeth_Data(2).Caption = ""
      Case "00"
         FPMeth_Data(2).Caption = "None"
      Case "01"
         FPMeth_Data(2).Caption = "Pills"
      Case "02"
         FPMeth_Data(2).Caption = "Shots (DP)"
      Case "03"
         FPMeth_Data(2).Caption = "IUCD"
      Case "04"
         FPMeth_Data(2).Caption = "Sterilization"
      Case "05"
         FPMeth_Data(2).Caption = "Norplant"
      Case "06"
         FPMeth_Data(2).Caption = "Condom"
      Case "07"
         FPMeth_Data(2).Caption = "Natural"
      Case "99"
         FPMeth_Data(2).Caption = "Other"
      Case Else
         FPMeth_Data(2).Caption = "ERROR"
   End Select
   
   Select Case PCONUSE(2)
      Case ""
         ConUse_Data(2).Caption = ""
      Case "00"
         ConUse_Data(2).Caption = "Never"
      Case "01"
         ConUse_Data(2).Caption = "Always"
      Case "02"
         ConUse_Data(2).Caption = "Sometimes"
      Case "98"
         ConUse_Data(2).Caption = "N/A"
      Case "99"
         ConUse_Data(2).Caption = "Other"
      Case Else
         ConUse_Data(2).Caption = "ERROR"
   End Select
      
   Select Case PCONLST(2)
      Case ""
         ConLst_Data(2).Caption = ""
      Case "00"
         ConLst_Data(2).Caption = "No"
      Case "01"
         ConLst_Data(2).Caption = "Yes"
      Case "97"
         ConLst_Data(2).Caption = "Don't know"
      Case "98"
         ConLst_Data(2).Caption = "N/A"
      Case Else
         ConLst_Data(2).Caption = "ERROR"
   End Select
   
   'For partner 4
   Select Case PTYPE(3)
      Case ""
         Type_Data(3).Caption = ""
      Case "01"
         Type_Data(3).Caption = "Spouse"
      Case "02"
         Type_Data(3).Caption = "Steady"
      Case "03"
         Type_Data(3).Caption = "Casual"
      Case "99"
         Type_Data(3).Caption = "Other"
      Case Else
         Type_Data(3).Caption = "ERROR"
   End Select
   
   Select Case PNEW(3)
      Case ""
         New_Data(3).Caption = ""
      Case "0"
         New_Data(3).Caption = "No"
      Case "1"
         New_Data(3).Caption = "Yes"
      Case Else
         New_Data(3).Caption = "ERROR"
   End Select
   
   Select Case PSTATUS(3)
      Case ""
         Status_Data(3).Caption = ""
      Case "01"
         Status_Data(3).Caption = "HIV+"
      Case "02"
         Status_Data(3).Caption = "HIV-"
      Case "97"
         Status_Data(3).Caption = "Unknown"
      Case Else
         Status_Data(3).Caption = "ERROR"
   End Select
   
   If PLTSTMO(3) = "" Then
      DateLastTested_Data(3).Caption = ""
   Else
      If PLTSTYR(3) = "" Then
         DateLastTested_Data(3).Caption = PLTSTMO(3)
      Else
         DateLastTested_Data(3).Caption = PLTSTMO(3) & " / " & PLTSTYR(3)
      End If
   End If
   
   
   Select Case PFPMETH(3)
      Case ""
         FPMeth_Data(3).Caption = ""
      Case "00"
         FPMeth_Data(3).Caption = "None"
      Case "01"
         FPMeth_Data(3).Caption = "Pills"
      Case "02"
         FPMeth_Data(3).Caption = "Shots (DP)"
      Case "03"
         FPMeth_Data(3).Caption = "IUCD"
      Case "04"
         FPMeth_Data(3).Caption = "Sterilization"
      Case "05"
         FPMeth_Data(3).Caption = "Norplant"
      Case "06"
         FPMeth_Data(3).Caption = "Condom"
      Case "07"
         FPMeth_Data(3).Caption = "Natural"
      Case "99"
         FPMeth_Data(3).Caption = "Other"
      Case Else
         FPMeth_Data(3).Caption = "ERROR"
   End Select
   
   Select Case PCONUSE(3)
      Case ""
         ConUse_Data(3).Caption = ""
      Case "00"
         ConUse_Data(3).Caption = "Never"
      Case "01"
         ConUse_Data(3).Caption = "Always"
      Case "02"
         ConUse_Data(3).Caption = "Sometimes"
      Case "98"
         ConUse_Data(3).Caption = "N/A"
      Case "99"
         ConUse_Data(3).Caption = "Other"
      Case Else
         ConUse_Data(3).Caption = "ERROR"
   End Select
      
   Select Case PCONLST(3)
      Case ""
         ConLst_Data(3).Caption = ""
      Case "00"
         ConLst_Data(3).Caption = "No"
      Case "01"
         ConLst_Data(3).Caption = "Yes"
      Case "97"
         ConLst_Data(3).Caption = "Don't know"
      Case "98"
         ConLst_Data(3).Caption = "N/A"
      Case Else
         ConLst_Data(3).Caption = "ERROR"
   End Select

End Sub

Public Sub SetStar(ByVal StarIndex As Integer)
   Star(StarIndex).Visible = True
End Sub


Private Sub UserControl_Initialize()

   If SEX = "1" Then
      SexColorLine.BorderColor = vbBlue
   Else
      If SEX = "2" Then
         SexColorLine.BorderColor = vbGreen
      Else
         SexColorLine.BorderColor = vbRed
      End If
   End If

   For I = 0 To 6
      Star(I).Visible = False
   Next I
End Sub


Public Sub PrintClientInfo()
   Dim TempY As Integer
   Dim TopLeft As Integer

   'Printer.Print
   
   TempY = Printer.CurrentY
   TopLeft = TempY
   
   'Headings
   Printer.CurrentX = 2000
   Printer.Print "Type"
   Printer.CurrentY = TempY
   Printer.CurrentX = 2900
   Printer.Print "New"
   Printer.CurrentY = TempY
   Printer.CurrentX = 3600
   Printer.Print "Status"
   Printer.CurrentY = TempY
   Printer.CurrentX = 4800
   Printer.Print "Last Test"
   Printer.CurrentY = TempY
   Printer.CurrentX = 6000
   Printer.Print "FP Method"
   Printer.CurrentY = TempY
   Printer.CurrentX = 7200
   Printer.Print "Condom Use"
   Printer.CurrentY = TempY
   Printer.CurrentX = 8800
   Printer.Print "Used Condom Last Time"
   
   
   
   'Partner #1
   TempY = Printer.CurrentY
   TopLeft = TempY
   
   Printer.CurrentX = 700
   Printer.Print "Partner #1"
   Printer.CurrentY = TempY
   Printer.CurrentX = 2000
   Printer.Print Type_Data(0).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 2900
   Printer.Print New_Data(0).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 3600
   Printer.Print Status_Data(0).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 4800
   Printer.Print DateLastTested_Data(0).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 6000
   Printer.Print FPMeth_Data(0).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 7200
   Printer.Print ConUse_Data(0).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 8800
   Printer.Print ConLst_Data(0).Caption
   
   'Partner #2
   TempY = Printer.CurrentY
   Printer.CurrentX = 700
   Printer.Print "Partner #2"
   Printer.CurrentY = TempY
   Printer.CurrentX = 2000
   Printer.Print Type_Data(1).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 2900
   Printer.Print New_Data(1).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 3600
   Printer.Print Status_Data(1).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 4800
   Printer.Print DateLastTested_Data(1).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 6000
   Printer.Print FPMeth_Data(1).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 7200
   Printer.Print ConUse_Data(1).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 8800
   Printer.Print ConLst_Data(1).Caption
   
   'Partner #3
   TempY = Printer.CurrentY
   Printer.CurrentX = 700
   Printer.Print "Partner #3"
   Printer.CurrentY = TempY
   Printer.CurrentX = 2000
   Printer.Print Type_Data(2).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 2900
   Printer.Print New_Data(2).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 3600
   Printer.Print Status_Data(2).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 4800
   Printer.Print DateLastTested_Data(2).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 6000
   Printer.Print FPMeth_Data(2).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 7200
   Printer.Print ConUse_Data(2).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 8800
   Printer.Print ConLst_Data(2).Caption
   
   'Partner #4
   TempY = Printer.CurrentY
   Printer.CurrentX = 700
   Printer.Print "Partner #4"
   Printer.CurrentY = TempY
   Printer.CurrentX = 2000
   Printer.Print Type_Data(3).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 2900
   Printer.Print New_Data(3).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 3600
   Printer.Print Status_Data(3).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 4800
   Printer.Print DateLastTested_Data(3).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 6000
   Printer.Print FPMeth_Data(3).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 7200
   Printer.Print ConUse_Data(3).Caption
   Printer.CurrentY = TempY
   Printer.CurrentX = 8800
   Printer.Print ConLst_Data(3).Caption

   Printer.Print
   Printer.Print
   
   ReturnVal = PrintRect(500, TopLeft, 10500, 1200)

End Sub

Public Sub SetShape(ByVal ShapePar As Integer)
   Shape2.Shape = ShapePar
End Sub

